program string_7;
var
s: string;
k, l, i: integer;
begin
write('введите строку:');
readln(s);
k := 0;
l := 0;
for i := 1 to length(s) do
begin
if s[i] = 'A' then
k := k + 1;
if s[i] = 'B' then
l := l + 1
end;
writeln('A=', k);
writeln('B=', l);
if k > l then
begin
for i := 1 to length(s) do
if s[i] = 'B' then
begin
delete(s, i, 1);
i := i - 1
end;
end;
write(s);
readln;
end.